home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1994 October / 64er_Magazin_94-10_1994_Markt__Technik_de_Side_A.d64 / zehnerblock 64 (.txt) < prev   
Encoding:
Commodore BASIC  |  1994-01-01  |  1.3 KB  |  46 lines
  1. 10 an=828:rem anfangsadresse
  2. 20 fori=0to188:readb:pokean+i,b:nexti
  3. 30 pokean+157,peek(788):pokean+158,peek(789):rem normaler irq
  4. 40 hi=int((an+165)/256):lo=(an+165)-256*hi
  5. 50 pokean+147,lo:pokean+148,hi:rem anfang ascii tabelle
  6. 60 poke56334,peek(56334)and254:rem irq aus
  7. 70 hi=int(an/256):lo=an-256*hi
  8. 80 poke788,lo:poke789,hi:rem neuer irq
  9. 90 poke56334,peek(56334)or1:rem irq wieder an
  10. 100 end
  11. 110 data120,165,198,201,10,240,27,169,255,141,0,220,173,47,208
  12. 120 data41,248,141,47,208,172,1,220,9,7,141,47,208,192,255
  13. 130 data240,127,208,2,240,120,160,0,173,47,208,41,254,141,47
  14. 140 data208,174,1,220,9,7,141,47,208,138,201,255,208,46,160
  15. 150 data8,173,47,208,41,253,141,47,208,174,1,220,9,7,141
  16. 160 data47,208,138,201,255,208,23,160,16,173,47,208,41,251,141
  17. 170 data47,208,174,1,220,9,7,141,47,208,138,201,255,240,54
  18. 180 data201,254,240,31,200,201,253,240,26,200,201,251,240,21,200
  19. 190 data201,247,240,16,200,201,239,240,11,200,201,223,240,6,200
  20. 200 data201,191,240,1,200,196,2,240,12,132,2,185,225,3,164
  21. 210 data198,153,119,2,230,198,76,49,234,169,255,133,2,208,247
  22. 220 data 022:rem help
  23. 230 data 056:rem 8
  24. 240 data 053:rem 5
  25. 250 data 023:rem tab
  26. 260 data 050:rem 2
  27. 270 data 052:rem 4
  28. 280 data 055:rem 7
  29. 290 data 049:rem 1
  30. 300 data 027:rem esc
  31. 310 data 043:rem +
  32. 320 data 045:rem -
  33. 330 data 017:rem line feed
  34. 340 data 013:rem enter
  35. 350 data 054:rem 6
  36. 360 data 057:rem 9
  37. 370 data 051:rem 3
  38. 380 data 024:rem alt
  39. 390 data 048:rem 0
  40. 400 data 046:rem .
  41. 410 data 145:rem crsr up
  42. 420 data 017:rem crsr down
  43. 430 data 157:rem crsr left
  44. 440 data 029:rem crsr right
  45. 450 data 025:rem no scroll
  46.